home *** CD-ROM | disk | FTP | other *** search
/ Enter 2010 January / ENTER_2010_01.iso / Programy / Gry / Base_Invaders_ / BaseInvadersSetup1.3.exe / {app} / Scripts / testing.lua < prev    next >
Encoding:
Text File  |  2007-01-25  |  1.4 KB  |  61 lines
  1. function add ( x, y )        
  2.     print "func"
  3.     print( x )
  4.     print( y )
  5.     print( x + y )
  6. end
  7.  
  8. function TestGlobals()
  9.     G.BasicTest0( 1  )
  10.     G.BasicTest1( 1  )
  11.     G.BasicTest2( 1 , 2  )
  12.     G.BasicTest3( 1 , 2 , 3 )
  13.     G.BasicTest4( 1 , 2 , 3 , 4)
  14.         
  15.     print( "Ret" , G.BasicTest0R( 1  ) )
  16.     print( "Ret" , G.BasicTest1R( 1  ) )
  17.     print( "Ret" , G.BasicTest2R( 1 , 2  ) )
  18.     print( "Ret" , G.BasicTest3R( 1 , 2 , 3 ) )
  19.     print( "Ret" , G.BasicTest4R( 1 , 2 , 3 , 4) )
  20. end
  21.  
  22. function TestStatic(TestObj)
  23.     TestObj.SObjFunc0( 1  )
  24.     TestObj.SObjFunc1( 1  )
  25.     TestObj.SObjFunc2( 1 , 2  )
  26.     TestObj.SObjFunc3( 1 , 2 , 3 )
  27.     TestObj.SObjFunc4( 1 , 2 , 3 , 4)
  28.  
  29.     print( "Ret" , TestObj.SObjFunc0R( 1  ) )
  30.     print( "Ret" , TestObj.SObjFunc1R( 1  ) )
  31.     print( "Ret" , TestObj.SObjFunc2R( 1 , 2  ) )
  32.     print( "Ret" , TestObj.SObjFunc3R( 1 , 2 , 3 ) )
  33.     print( "Ret" , TestObj.SObjFunc4R( 1 , 2 , 3 , 4) )
  34. end
  35.  
  36. function TestLocal(TestObj)
  37.     TestObj.ObjFunc0( 1  )
  38.     TestObj.ObjFunc1( 1  )
  39.     TestObj.ObjFunc2( 1 , 2  )
  40.     TestObj.ObjFunc3( 1 , 2 , 3 )
  41.     TestObj.ObjFunc4( 1 , 2 , 3 , 4)
  42.     
  43.     print( "Ret" , TestObj.ObjFunc0R( 1  ) )
  44.     print( "Ret" , TestObj.ObjFunc1R( 1  ) )
  45.     print( "Ret" , TestObj.ObjFunc2R( 1 , 2  ) )
  46.     print( "Ret" , TestObj.ObjFunc3R( 1 , 2 , 3 ) )
  47.     print( "Ret" , TestObj.ObjFunc4R( 1 , 2 , 3 , 4) )
  48. end
  49.  
  50.  
  51. print "FuzzyBunny"
  52.  
  53.     TestGlobals();
  54.     TestLocal(TestObj);
  55.     TestStatic(TestObj);    
  56.  
  57. print "End"
  58.  
  59.  
  60.  
  61.